home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Intervals / g-interval next >
Encoding:
Text File  |  1998-08-11  |  997 b   |  29 lines  |  [TEXT/ScoM]
  1. g-interval seed type count integer
  2.  
  3. type :nil :shuffle :rnd
  4.  
  5. This function is able to generate single or multiple lists of intervals from a single or multiple source lists. Notice in the examples that the integer list order is shuffled and some integers become minus values. 
  6.  
  7. (g-interval .34 :shuffle 1 '(1 2 6 11 13 14))
  8. => (2 6 1 -14 13 -11)
  9.  
  10. (g-interval .34 :nil 2 '(1 2 6 11 13 14))
  11. => ((1 2 6 -11 13 -14) (-1 2 6 -11 -13 14))
  12.  
  13. (g-interval .34 :shuffle 2 '(1 2 6 11 13 14))
  14. => ((2 6 1 -14 13 -11) (-11 6 1 -14 -13 2))
  15.  
  16. (g-interval .34 :rnd 2 '((1 2 6 11 13 14) (1 2 6)))
  17. => ((2 6 1 -14 13 -11) (-11 6 1 -14 -13 2) (1 6 2) (2 -1 6))
  18.  
  19. (g-interval .78 :shuffle '(2 4) '((1 2 6 11 13 14) (1 2 6)))
  20. => ((6 -2 13 14 -1 -11) (14 6 -2 -1 -11 -13)
  21.     (-2 6 -1) (-2 6 -1) (-2 6 1) (-6 -2 -1))
  22.  
  23. (g-interval .78 :rnd '(2 2 1 2 1) '((1 2 6 11 13 14) (1 2 6)))
  24. => ((1 -2 6 11 -13 -14) (14 6 -2 -1 -11 -13)
  25.     (-2 6 -1) (-1 2 -6)
  26.     (-1 2 -6 -11 13 14)
  27.     (-2 6 1) (-1 -2 -6)
  28.     (-1 -2 -6 -11 13 -14))
  29.